home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / share / m17n / GURU-OTF.flt < prev    next >
Text File  |  2009-04-29  |  5KB  |  173 lines
  1. ;; GURU-OTF.flt -- Font Layout Table for Gurmukhi OpenType fonts
  2. ;; Copyright (C) 2004, 2007, 2008  AIST (H15PRO112)
  3. ;; See the end for copying conditions.
  4.  
  5. (font layouter guru-otf nil
  6.       (font (nil nil unicode-bmp :otf=guru=blwf)))
  7.  
  8. ;;; <li> GURU-OTF.flt
  9. ;;;
  10. ;;; For Gurmukhi OpenType fonts to draw the Gurmukhi script.
  11.  
  12. (category
  13.  ;; C: general consonant (except for R and Y)
  14.  ;; R: consonant (below)
  15.  ;; Y: consonant YA
  16.  ;; n: NUKTA
  17.  ;; H: HALANT
  18.  ;; m: vowel sign (pre)
  19.  ;; u: vowel sign (above)
  20.  ;; b: vowel sign (below)
  21.  ;; p: vowel sign (post)
  22.  ;; A: vowel modifier (above)
  23.  ;; a: vowel modifier (post)
  24.  ;; V: independent vowel
  25.  ;; d: ADDAK
  26.  ;; N: ZWNJ (ZERO WIDTH NON-JOINER)
  27.  ;; J: ZWJ (ZERO WIDTH JOINER)
  28.  ;; X: generic
  29.  ;; Z: internal use
  30.  (0x0A00 0x0A7F    ?X)            ; generic
  31.  (0x0A00    ?Z)            ; internal use
  32.  (0x0A01 0x0A02    ?A)            ; SIGN ADAK BINDI .. BINDI
  33.  (0x0A03    ?a)            ; SIGN VISARGA
  34.  (0x0A05 0x0A14    ?V)            ; LETTER A .. AU
  35.  (0x0A15 0x0A38 ?C)            ; LETTER KA .. SA
  36.  (0x0A2F    ?Y)            ; LETTER YA
  37.  (0x0A30    ?R)            ; LETTER RA
  38.  (0x0A35    ?R)            ; LETTER VA
  39.  (0x0A39    ?R)            ; LETTER HA
  40.  (0x0A3C    ?n)            ; SIGN NUKTA
  41.  (0x0A3E    ?p)            ; VOWEL SIGN AA
  42.  (0x0A3F    ?m)            ; VOWEL SIGN I
  43.  (0x0A40    ?p)            ; VOWEL SIGN II
  44.  (0x0A41 0x0A42    ?b)            ; VOWEL SIGN U .. UU
  45.  (0x0A47 0x0A4C    ?u)            ; VOWEL SIGN EE .. AU
  46.  (0x0A4D    ?H)            ; SIGN VIRAMA
  47. ;; (0x0A51    ?)            ; SIGN UDAAT
  48.  (0x0A59 0x0A5E    ?C)            ; LETTER KHHA .. FA
  49.  (0x0A70    ?A)            ; TIPPI
  50.  (0x0A71    ?d)            ; ADDAK
  51. ;; (0x0A75    ?)            ; SIGN YAKASH
  52.  (0x0964 0x0965    ?X)            ; DANDA .. DOUBLE DANDA
  53.  (0x200C    ?N)            ; ZWNJ
  54.  (0x200D    ?J)            ; ZWJ
  55.  )
  56.  
  57. ;; Compose consonant and nukta
  58. (generator
  59.  (0
  60.   (cond
  61.    ((0x0A32 0x0A3C) 0x0A33)
  62.    ((0x0A38 0x0A3C) 0x0A36)
  63.    ((0x0A16 0x0A3C) 0x0A59)
  64.    ((0x0A17 0x0A3C) 0x0A5A)
  65.    ((0x0A1C 0x0A3C) 0x0A5B)
  66.    ((0x0A2B 0x0A3C) 0x0A5E)
  67.    ("." =))
  68.   *))
  69.  
  70. ;; Reordering
  71. (generator
  72.  (0
  73.   (cond
  74.    ;; A syllable with vowel signs.
  75.    ;;1       2           34   5       6   7
  76.    ("([CRY]n?(H[CRY]n?)*)((m)|(ub?|b)|(p))(A?a?d?)"
  77.     < | (4 =) (1 pre-below) (5 = *) (1 post) (6 =) (7 = *) | >)
  78.  
  79.    ;; A syllable with vowel modifiers or an Addak.
  80.    ;;1       2           3
  81.    ("([CRY]n?(H[CRY]n?)*)(Aa?d?|ad?|d)"
  82.     < | (1 pre-below) (1 post) (3 = *) | >)
  83.  
  84.    ;; Add a ZWNJ explicitly when a syllable ends with a halant.
  85.    ;;1       2           3
  86.    ("([CRY]n?(H[CRY]n?)*)(HN?)?"
  87.     < | (1 pre-below) (3 = 0x200C) (1 post) | >)
  88.  
  89.    ;; A syllable starting with an independent vowel.
  90.    ;; In older texts, LETTER OO may followed by VOWEL SIGN U.
  91.    ("Vb?A?a?d?"
  92.     < | = * | >)
  93.  
  94.    ("." =))
  95.   *)
  96.  
  97.  ;; Move the halant after the base consonant to the end.
  98.  ;; Fill the resulting gap with a special mark.
  99.  ;; Remove post-base parts.
  100.  (pre-below
  101.   (cond
  102.    ("(.+)(H)(R)(HY)?$"
  103.     (1 = *) 0x0A00 (3 =) (2 =))
  104.    ("(.+)HY$"
  105.     (1 = *) 0x0A00)
  106.    (".+"
  107.     = * 0x0A00)))
  108.  
  109.  ;; Extract post-base parts and add a halant at the end.
  110.  ;; Produce nothing if there are no post-base parts.
  111.  (post
  112.   (cond
  113.    (".*(H)(Y)$"
  114.     (2 =) (1 =))
  115.    (".+"
  116.     ))))
  117.  
  118. ;; Apply language forms to concerning segments.  Note that the Saab
  119. ;; font generates below form with 'vatu' instead of 'blwf'.
  120. (generator
  121.  (0
  122.   (cond
  123.    ;; Explicit Halant.
  124.    ;; 1       2    3   4
  125.    (" ([^Z]+)Z(RH)?(H)N(YH)? "
  126.     | (1 otf:guru=nukt+) (2 otf:guru=blwf,vatu+) (3 =) (4 otf:guru=pstf+) |)
  127.  
  128.    ;; Vowel signs and vowel modifiers.
  129.    ;; 1   2       3    4     5    6
  130.    (" (m)?([^Z]+)Z(RH)?(u?b?)(YH)?(p?A?a?d?) "
  131.     | (1 =) (2 otf:guru=nukt+) (3 otf:guru=blwf,vatu+) (4 = *)
  132.     (5 otf:guru=pstf+) (6 = *) |)
  133.  
  134.    ("." =))
  135.   *))
  136.  
  137. ;; Other features
  138. (generator
  139.  (0
  140.   (cond
  141.    (" ([^ ]+) "
  142.     (1 otf:guru=vatu,pres,abvs,blws,psts,haln+abvm,blwm,dist))
  143.  
  144.    ("."
  145.     [ = ]))
  146.   *))
  147.  
  148. ;; Copyright (C) 2004, 2007, 2008
  149. ;;   National Institute of Advanced Industrial Science and Technology (AIST)
  150. ;;   Registration Number H15PRO112
  151.  
  152. ;; This file is part of the m17n database; a sub-part of the m17n
  153. ;; library.
  154.  
  155. ;; The m17n library is free software; you can redistribute it and/or
  156. ;; modify it under the terms of the GNU Lesser General Public License
  157. ;; as published by the Free Software Foundation; either version 2.1 of
  158. ;; the License, or (at your option) any later version.
  159.  
  160. ;; The m17n library is distributed in the hope that it will be useful,
  161. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  162. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  163. ;; Lesser General Public License for more details.
  164.  
  165. ;; You should have received a copy of the GNU Lesser General Public
  166. ;; License along with the m17n library; if not, write to the Free
  167. ;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  168. ;; Boston, MA 02110-1301, USA.
  169.  
  170. ;; Local Variables:
  171. ;; mode: emacs-lisp
  172. ;; End:
  173.